home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / gfx / edit / RenumSeq.lha / RenumSeq.rexx < prev   
OS/2 REXX Batch file  |  1995-01-13  |  1KB  |  73 lines
  1. /* Renumber AREXX SCRIPT by Christoph Mayer */
  2.  
  3. Signals On
  4. Options RESULTS
  5.  
  6. Say "This scrip will renumber your sequence-pictures"
  7. Say ""
  8.  
  9. /* getting parameters */
  10.  
  11.    Say 'Type old basename now (with path but without suffix):'
  12.    Pull Basename
  13.  
  14.    Say 'Type new basename now (with path but without suffix):'
  15.    Pull BasenameNew
  16.    
  17.    Say 'Type 3 for Suffix .xxx or 4 for Suffix .xxxx'
  18.    Pull Suffixtype
  19.  
  20.    Say 'start number (old files):'
  21.    Pull OldStart
  22.  
  23.    Say 'end number (old files):'
  24.    Pull OldEnd
  25.  
  26.  
  27.    Say 'Start number (where new sequence should begin):'
  28.    Pull Newstart
  29.  
  30.  
  31. /* Renumber-loop */
  32.  
  33.    Address command
  34.  
  35.    Do i=OldStart by 1 to OldEnd
  36.    
  37.      Suffix3="."
  38.      Suffix4="."
  39.  
  40.      if i<1000 Then Do
  41.        Suffix3="."
  42.        Suffix4=".0"
  43.      end
  44.  
  45.      if i<100 Then Do
  46.        Suffix3=".0"
  47.        Suffix4=".00"
  48.      end
  49.  
  50.      If i<10 Then Do
  51.        Suffix3=".00"
  52.        Suffix4=".000"
  53.      end
  54.  
  55.  
  56.      Suffix0=Suffix4
  57.      If SuffixType=3 Then Do
  58.        Suffix0=Suffix3
  59.      end
  60.  
  61.      LeseName= Basename||Suffix0||i
  62.      Speichname= BasenameNew||Suffix0||(i-OldStart+NewStart)
  63.  
  64.      Say 'renaming' Lesename 'as' Speichname
  65.      'Rename "'LeseName'" "'Speichname'"'  
  66.  
  67.    END
  68.  
  69.    Say ""
  70.    Say "Renumber program ended."
  71.  
  72.    RETURN
  73.